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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® a 
® ® 
® ® 
we * 
id « 
® ® 
* IN ACCORDANCE WITH TERMS OF SUCH LICENSE AND WITH THE 
« USION GF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR “ANY OTHER 
* Ue THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY = 
’ R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. . 
® ® 
® & 
® ® 
® ® 
® ® 
** * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 

Facility: RMS 

Abstract: 


This module communicates with the File Access Listener (FAL) at the 
remote node to disconnect the specified record stream. 


Environment: VAX/VMS, executive mode 


Author: James A. Krycka, Creation Date: 09-DEC-1977 
Modified By: 
v02-020 JAK0122 J A Krycka 22-AUG-1983 


Unlock the remote FAL by sending a Continue Transfer interrupt 


Rewrite NTSLOOK POR. CMP anal ol to better handle obscure error 
recovery condition 

Also, move NTSRESUME FAL routine here from NIOPUT module and 
modi fy it to return Status of the interrupt 1/0 operation. 
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: Include Files: 


SDAPPLGDEF 
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SDAPSTSDEF 

SIFBDEF 

SNWADEF 
Macros: 


None 
Equated Symbols: 


SSSSSSSSSSSSSSSSSSSSSSSSS 
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ASSUME DAP$Q_DCODE_FLG EQ 0 
ASSUME NWASQ"FLG EO 0 


Own Storage: 
None 


000909 09 09 09 09 SII NINN NS NINO AAA AAAAAAU 
AIS WN OC OODNAU EWN O OONOAU EWN OOONIOuM 


75 
6:2 


Diet 


Define 
Define 
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DAP prologue symbols 

DAP message header 

DAP Access Complete message 
DAP Configuration message 

DAP Continue Transfer message 
DAP Data message 

DAP Status message 

IFAB symbols 

Network Work Area symbols 
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-SBTTL NTSDISCONNECT = PERFORM NETWORK DISCONNECT FUNCTION 


CT 
PER 


Ze 


:  NTSDISCONNECT = engages in a DAP dialogue with the remote FAL to disconnect 
; the record stream. 
; Calling Sequence: 
; BSBw NTSDISCONNECT 
; Input Parameters: 
R8 RAB address 


R19 IFAB address 
R11 Impure Area address 


| 
| 
. | 
; Implicit Inputs: | 
i 
| 
| 


; Output Parameters: 
0 Status code (RMS) 
R1-R7 Destroyed 
AP Destroyed 
; Implicit Outputs: 


| 
NWASV_FTM_RETRV cleared 
NWASV_FTM_STORE cleared | 


Completion Codes: 
; Standard RMS completion codes 
; Side Effects: 

None 
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NTSDISCONNECT:: ; Entry point 
$STSTPT NTDISCON 3 
MOVL IFBSL_NWA_PTR(R10),R7 ; Get address of NWA (and DAP) 


BS SS SS SSS SS SSSSSSSSSSSSSSSsSssssssssssssssseeeeee 


57 3C AA 00 


++ 
; Build and send DAP Access Complete message to partner. | 


COOCOOCSCSooSo 


AL is a nonVMS partner implemented to DAP before V5.6 (thus the record 
stream is not disconnected at the remote node at this time). However, 
these systems do not support record access mode, and for file transfer 
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>>>r>ryYp 


; Note: ng Access somgtete message sectenge sequence is skipped if the remote 
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A 145; mode a close operation will follow which will implicitly disconnect 
A 123 : the record streaa. 
a 
BA 128 SEND_CMP : 
04 67 3 EO OA 1 9 $ #DAPSV =stavs (R7),10$ : Send gessage if partner is VAX/VMS 
1F 67 26 €1 OOOE 1 BBC #DAP$V~GEQ é. (R Rvs SUC ; or if partner uses DAP since V5.6 
1 1 § 10$: SSETBIT pape VaLAST ; Declare this last message to block 
50 07 1 1 MOVL #DAPSK" CMP R36, (Rd : Get message type value 
* 01 122 BSBW NTSBUILD_HEAD : Construct message header 
85 4 O1c 155 MOVB PDAPSK DISCONN, (R5)+ ; Store CMPFUNC field 
FFDE' ; iE 136 BSBW NT$BU ICD AIL : Finish building message 
FFDB* g 1 BSBW NTSTR ; Send Access Complete message to FAL 
1450 €9 00 138 BLBC RO EXIT 3; Branch on failure 
ee 
8s 19) ; Receive DAP Access Complete message from partner. 
B05 188 ; Note: The DAP v4.1 specification did not permit a response to Access Complete 
0 164 ; (end-of-stream)!! 
Ssh ep i 
0028 167 RECV_CMP: : 
05 67 21 #2€1 0028 168 BBC #DAP$V_GEQ_V42,(R7),SUC ; Response to Access Complete required 
002C 169 : iff partner uses DAP since V4.2 
OF 10 O02C 170 BSBB NTSLOOK_FOR_CMP ; Wait for response from FAL 
0B 50 «9 Bags 171 et BC RO,EXIT™ ; Branch if not Access Complete message 
0031 \7¢ SuC: RMSSUC ; Return success 
0034 17 SCLRBIT #NWASV_FTM_RETRV,(R7) ; Clear file transfer mode status bits 
0038 174 seamen? #NWASV— FT M_STORE, (R7) $ 
05 O003C 175 EXIT RSB ; Exit with RMS code in RO 
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;++ 

; This routine is called after an Access Complete message has been sent to FAL 

; to terminate the record stream (which may be in an active file transfer mode 

3; state). This routine waits for an Access Complete message response from FAL 

; to establish a synchronization point while carefully filtering out other valid 
; messages that may be in the pipe. 


NTSLOOK_FOR_CMP:: Entry point 
BBS #NSASV_FTM_EOF,(R7),= Branch if we're in file transfer 
ALREAOY SYRCHRONI ZED retrieval mode with eof reached 


67 : 
#NWASV_FTM_RETRV,(R7),- : Branch if we're in file transfer 


67 
67 


EO 
E0 
EO 


BBS 
PULLING_FILE retrieval mode without eof seen 
BBS #NWASV_FTM STORE,(R7),- ; Branch if we're in file transfer 
PUSHING_F ICE storage mode 


s-0O-0— 
UWBOrovU 
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3; We're either in record access mode or in file transfer retrieval mode with 
; end-of-file encountered. Thus RMS and FAL are synchronized (nothing should 
3; be in the pipe), so we expect an Access Complete message to be returned in 
3 response to the Access Complete message already sent. 


ALREADY_SYNCHRONIZED: ; Terminating record access mode 
SSETBIT #DAPSK_CMP_MSG,DAPS$L_MSG_MASK(R7) 
3; Expect response of Access Complete msg 
BSBW NTSRECEIVE ; Get reply from FAL 
RSB ; Exit with RMS code in RO 


FFAF* 


ow 


3+ 

; We're in file transfer mode retrieving a file and have just requested FAL to 
; terminate the transfer prematurely (i.e., before we've processed end-of-file). 
: The following actions will be taken while emptying the pipe: 

3 (1) Access Complete message will cause exit with success. 

3 (2) Data messages in the pipe will be discarded after computing their CRC 

s value (to keep in sync with FAL's CRC computation). 

; (3a) Status message pertaining to disconnecting the record stream (and/or 

; closing the file) will cause exit with status. 5 

; (3b) Status message pertaining to the interrupted data transfer (end-of-file 
: in particular) will be ignored. 

; (4) Any error from NTSRECEIVE that is not the result of a valid Status 

2 message will cause exit with status (Link down, protocol error, etc.). 


PULLING_FILE: ; Terminating file transfer retrieval 
BISL2 ; Expect secgees of Access semprete. 
Data, or Status (end-of-file) message 


1¢ A? 00000180 8F 8 #<<1QDAP$K_DAT_MSG>!-—; 
<1QDAPSK_CMP_MSG>!-— ; 
O>,DAP$L_MSG_MASK(R7) 
BSBw «= ss NTSRECEIVE : Get reply from FAL 
BL.BC DAPS$L_DCODE_STS(R7),30$ ; Branch on failure to obtain a valid 
; DAP message 


FFA3" 30 
34 18 A? ED 


ASSUME DAPSK_CMP_MSG EQ 7 
ASSUME DAPSK“DAT“MSG EQ 8 
ASSUME DAPSK STS"MSG EQ 9 
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61 4 
} 5 SCASEB SELECTOR=DAP$B_TYPE(R7)-; Dispatch on message type: 
1 § BASE=@DAPSK_CMP_MSG- ; 
61 ad : 
61 : $- ; Access Complete 
61 10$- ; Oata 
59 40 20$- ; Status 
61 41 = ; Should never take this path 
3 E1 006C tg 10$: BBC #DAPS$V_DAPCRC,- ; Branch if partner does not support 
28 A O6F 4 DAPS$Q_SYSCAP(R7),- ; file ievel CRC checksum, then discard 
£1 0 44 PULLING_FILE ; data and process next message 
52 4 a7 7D 7) 45 mova DAPS$Q_FILEDATA(R7),R2 ; Put descriptor of record in <R2,R3> 
OOOO'CF 06 23 6 cRC W°NTSCRC_TABLE,- ; Compute CRC (destroying RO-R3) 
20 A? 007 4 DAPSL_CRO_RSLT(R7),- i using result of previous CRC 
63 36 078 8 agent ) ; calculation as initial CRC value 
20 A DO 007D 4 MOVL RO,DAPSL_CRC_RSLT(R7) ; Store CRC resultant value 
gf 11 0081 50 BRB PULLIN ; Process next message 
0000 ' 8F 9 B1 0083 51 208: CMPW RO,#<RMSS_EOFE*XFFFF>  ; Discard end-of-file Status message 
C 13° 0088 26 BEQL PULL FIL ;__in pipe 
51 40 A7 06 OC EF Bose 5 EXTZV #12,#4 ,DAPS$W_STSCODE(R7),R1 ; Pronine MACCODE status value 
07 51 91 009 54 CMPB R1,#DAP _FILE_CLOS ; Is this an error response to the 
009 55 ; Access Complete message we sent? 
BD Mg 009 2$ BNEQ PULLING_F ILE 3; No, ignore error and get next message 
05 0095 37 30$: SB ; Exit with RMS code in RO | 
59 3+ 
60 ; We're in file transfer mode storing a file and have just requested FAL to 
61 ; terminate the transfer (i.e., Access Complete signals end-of-data to FAL). 
6¢ ; The following actions will be taken while eapty ing the pipe: 
65 ; (1) Access Complete message will cause exit with success. 
64 ; (2a) Status message pertaining to disconnecting the record stream (and/or | 
65 ; closing the file) will cause exit with status. 
66 ; (2b) Status message pertaining to the processing of a Data message (ahead 
67 ; of the Access Complete aposegy in the pipe for FAL) will result in the 
68 ; sending of an interrupt Continue Transfer message to unlock FAL, and 
69 ; this (write behind) error will be reported to the caller. 
70; (3) Any error from NTSRECEIVE that is not the result of a valid Status 
4 3 message will cause exit with status (Link down, protocol error, etc.). | 
7 eo 
74 PUSHING_FILE: ; Terminating file transfer storage 
75 SSETBIT #DAPSK_CMP_MSG,DAPSL_MSG_MASK(R7) 
16 ; Expect response of Access Complete msg 
tree" 7 BSBW NTSRECEIVE ; Get reply from FAL ‘ 
25 18 A 4 BLBC DAPS$L_DCODE_STS(R7),10$ ; oe on failure to obtain a valid 
3 message 
30 A7 0 CMPB DAP$B_TYPE(R7),- ; We're done if this is an Access 
07 1 #DAPSR_CMP_MSG ; Complete message; otherwise it must 
1F § BEQL 10$ ; _be a Status message 
51 40 A7 04 oc EXTZV #12,44,DAP$W_STSCODE(R7),.R1 ; Examine MACCODE status value 
07 1 1 4 CMPB R1,#DAP$_FILE_CLOS ; Is this an error response to the 
5 ; Access Complete message we sent? 
14 § BEQL 10$ :; Yes, return status code and exit 
os =51 CMPB R1,@DAPS$_FILE_XFER ; Branch if this was not the result of 
3 ; @ $PUT or SuRITE failure; otherwise 
DE H BNEQ PUSHING_FILE ; we're sure FAL is in a wait state 
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FAL has reported an error on a put or write operation while processing a Data 
message that was in the pipe ahead of the Access Complete message, and is 
wait me cee a Continue Transfer interrupt message before it can proceed to 


empty its pipe and finally process our Access Complete message. 
PUSHR #*M<RO> ; Save primary error code 
BSBwW NTSRESUME_F AL ; Then unlock remote FAL by sending a 


;_ Continue Transfer interrupt message 
SSETBIT #DAPSK_CMP_MSG,DAPSL_MSG_MASK(R7) 

; Expect response of Access Complete msg 
BSBw NTSRECEIVE ; Get reply from FAL 
POPR #*M<RO> ; Restore Br inet s error code 
RSB ; Exit with RMS code in RO 
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+ 
This routine handles $PUT and SWRITE error egtovery for both record access 
and file transfer modes of operation. The DAP specification requires that 

a Continue Transfer message be sent to FAL as an interrupt eeseoge to tell 
it what to do with the record (or block) that it failed to SPUT/SWRITE to 
to the file. After sending a Status message to indicate the error condition, 
FAL waits for receipt cf an interrupt message, then processes the next 
message in the pire. 


Note: The Continue Transfer message must not be sent on error from an SUPDATE 
operation; just on an error from a $PUT or SWRITE operation. 


Note: If the error occurs in file transfer mode, the file transfer operation 
will be aborted. Consequently, the next RMS operation that the user 
requests must be SDISCONNECT or SCLOSE (because FAL expects to receive 
an Access Complete message). This restriction does not apply to record 
transfer mode. 

Input parameters: | 
R7 NWA (=DAP) address 

Output Parameters: | 

| 


RO Status code (RMS) to return to user 
R1-R5 Destroyed 


Se Se Se Se Ge Ge Se Ge Ge Ge Ge Ge Se Se Se Se Ge Ge Se Se Ge Ge Se Se Se Se Ge 
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NTSRESUME _FAL:: ; Entry point 


4 | 
; Build and send DAP Continue Transfer message to partner. | 
| 


SEND_CON: ; 
MOVL #DAPSK_CON_MSG,RO ; Get message type value 
BSBW NTS$BUICD_HEAD ; Construct message header 
MOVB #DAPSK_ABORT, (R5)+ ; Store CONFUNC field assuming that 


: file transfer mode is in effect 
BBS #NWASV_FTM_STORE,(R7),10$;Branch if we guessed right 
MOVB #DAPSK SKIP_REC,-1(R55 ; Store CONFUNC field appropriate for 


; _record access mode 

10$: BSBW NTSBUILD_ TAIL 3 Finish bul léing message 
BSBW NTSINTERRUPT ; Send Continue Transfer message to FAL 

; _as an interrupt message 

RSB ; Exit with RMS code in RO 
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END ; End of module 
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$8. PSECT_EP = DAP$V_GEQ_V4 = 021 
ehh = Seeeeee party 668-188 = $een0e8 
SSRMSTEST = 1A DAPSV_VAXOMS = 38 3 4 
SSRMS_PBUGCHK = 8 DAPS$W_BUFSIZ 000 3 
SSRMS_TBUGCHK s 8 DAPS$W_ CHECK 00004 
SSRMS-UMODE = 4 DAPSW_PARTNER 00 380 
ALREADY SYNCHRONIZED 49 R 01 DAPSW_RFA 38 4 
DAP$B_BITCNT 35 DAPS$W_STSCODE 004 
DAPS$B_CMPFUNC 4 DAPS$W- VERSION 000004 
DAPSB_CONF UNC 4 AP$_FILE_CLOS = 00000007 
DAPS$B_DCODE_F 1D 1 DAPS_FILE_XFER = 00000005 
DAP SB _DCODE RAC 1B EXIT 980808 CR 01 
AP$B_DCODE MSG 1A IFBSL_NWA_PTR = 000 ¢ 
DAP$B_DECVER 47 NTSBUTLD_READ eeeeeeee 01 
DAP$B_EC r{| NTSBUILD- TAIL etereeee 01 
DAPS$B_FILESYS 4 NTSCRC_T aeeeeeee 01 
DAP$B_FL 4 NTSDISCONNECT 00000000 01 
DAP$B_LEN256 4 NTSINTERRU aeeneeee 01 
DAP$B_LENGTH 33 NTSLOOK_FOR_CMP 0000003p 01 
DAP$B_OSTYPE $6 NTSRECETV greeters 01 
DAP$B_STREAMID 3 NTSRESUME _FAL 000000C8 01 
DAP$B_TYPE 30 NTSTRANSM eeneneee 01 
DAP$B_USRNUM 46 NWASB_ALLXABCNT 0000011¢ 
DAP$B_USRVER 048 NWASB_DAP_RA 000000¢9 
DAP$B_VER 44 NWASB_FILESYS 000000C5 
DAPse X_ FIELD 24 NWASB_KEYXABCNT 0000011D 
BCN co NWASB_NETSTRSIZ 0000016F 
DAPSK-ABORT z 003 NUASB_ ~NODBUF S1Z 00000168 
DAPS$K_BLN 00CcO NWASB_ORG 000000C6 
DAPSK_CMP_MSG = 00000007 NWASB_OSTYPE 000000C4 
DAP$K_CON_MSG = 00000905 NWASB_RFM 0000007 
DAPSK_DAT_MSG = 00000008 NWASB_RMS_RAC 000000C8 
DAPS$K_DISTON = 00000004 NWASC_ 00000800 
DAPSK_SKIP_REC = 00000002 NWASK_ 00000800 
DAPS$K_STS_ASG = 00000009 NWASL_ALLXABADR 00000100 
DAPSL_CMWA 00000030 NWASL_DATXABADR 00000104 
DAPSL_CRC_RSLT 00000020 NWASL_DEV 000000C0 
DAP$i_DCOBE_STS 00000018 NWASL_FHCXABADR 00000108 
APSL_FOP2 00000044 NWASL_KEYXABADR 0000010C¢ 
DAPS$L_MSG_ MASK 0000001C NWASL_MSG_ MASK 00000004 
APS$L_RECRUM1 00000040 NWASL_PRORABADR 00000110 
DAP$L_RECNUM2 00000048 NWASL_RDTXABADR 00000114 
DAPSL_SSPWA 00000080 SL_SAVE_FL 00000128 
DAPSL_STV Bp OnONSS NWASL_SUMXABADR Boo hoORe 
DAPS$L_ TEMP 0000090 NWASL~ THREAD 0 ooore 
DAPSM_BITCNT = et 44 NWASL-XLTATTR 0000023 
DAPSM_ SEGMENT = 0000004 NWASL_XLTBUFFLG BOR ¢ 
DAPSM_TMP1$ = 00000010 NWASL_XLTC B808 8 
DAPSM_TMP2$ = aia NWASL_XLTMAXINDX 0000234 
DAP$Q_DCODE _F 0000000 NWASL_XLTS 88988 0 
DAP$Q_FILEDATA 000 44 NWASQ-ACS 000244 
DAP$Q_MSG_BUF 1 000008 NWA$Q~B1GBUF B00 78 
DAPS$Q"| -BSG “BUF 2 00000010 NWAS$Q_BLD 00000F 
DAP$Q"STX 9 5 NWASQ_FLG $008 90 
DAP$O_ SvSCAp 00 § NWA$Q_INODE 000025¢ 
DAP$Q"SYSPEC it NWA$Q-10SB 9008 08 
DAP$V_DAPCRC = 0000001 NWASQ"LNODE 001 
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Symbol table 984 RMS.SRCINTODISCON.MAR; 1 
NWASQ_LOGNAME 000023¢ 
NWASQ_NCB 64 
ASQ-RCV 8 
NWASQ_SAVE DESC 1 
NWASQ_XLTBOF 0 f 
NWASQ_XLTBUF 2 5 
ASQ_XMT $ Fe 
NWAST_ACSBUF 
WWAST_AUXBUF 0000 3 
“DAP 44 
NWAS$T_ INODEBUF 00004AC 
NWAST_ITM_ATTR $444 0 
NWAST_ITM_EN 4 | 
NWAST_ITM_ 0000 2 
NWAST_1TM_MAXINDX 0000021 
NWAST_ITM-STRING 0000020C 
NWAST_NCBBU 444 C 
NWAST_NODEBUF 0000169 
NWAST_RCVBUF 4464 Bs 
NWAST_SCAN 0000 198 
$T_TE 0000012 
NWAST_XLTBUF 1 aia sat 
NWAST—XLTBUF 2 000003AC 
NWAST_XMTBUF 000003C0 
NWASV—FTM_ = 0000001D 
NWASV~F TM_RETRV = 0000001A 
NWASV_F TM_STORE = 00000018 
NWASV_LAST_MSG = 00000000 | 
NWASW_BUIL 000000D2 
NWASW_DAPBUF S12 00000CA 
NWASW_DIR_O 000000cC 
NWASW_DISPLAY 00000000 
NWASW_FIL OFF 000000C 
NWASW_JNLRABJOP 0000011E 
PIOSA~ TRACE eeeeeeee§ =X (01 
PULLING_FIL 00000052 4 01 
PUSHING FILE 44 64 01 
RECV_CM 0000002 a. 01 
RMS$_EOF eeereree 01 
SEND_CMP O0000000A R 01 
ND_CON sited R 01 
SUC 00000031 R 01 
TPTSL_NTDISCON eereeeee =X = 01 | 
$m awe ere mm + | 
: Psect synopsis ! 


PSECT name Allocation 

- ABS. 44 94 ( g-} 0(¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NF SNE TWORK 00000 224.) af PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABS$ 00000800 2048.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
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' ; Performance indicators ! 


Ses eee ae aneeseesnesneen} 


Phase Page faults CPU Time Elapsed Time 
Initialization 35 8:99:98 .07 0: 8:0 oil 
yy processing 436 8: _ 9-98 3: B39 ‘ 
Synbol table sort 0 0:00: 0:74 0:00:01. 
s2 $8 0: 3: 1.47 e: 704.34 
ae E table output 1 0: ol 00:01. 
Psect synopsis output 3 0:00:00.0 0:00:00.0 
Cross-reference output 0:00: 98 Sha Aes Bg 
Assembler run totals 494 00:00:10. 00:00:31.4 


e working set Limit was 1350 pages. 
$3870 bytes (66 pages) of virtual memory were used to buffer phe intermediate code. 
There were 30 pages of symbol table space allocated to hold 539 non-local and 13 local symbols. 
356 source Lines were read in Pass 1, producing object records in Pass 2. 
5 pages of virtual memory were used to define 24 macros. 
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! ; Macro library statistics ! 
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Macro Library name 


“$52 3SDUACE: RMS .OBJJRMS.MLB; 1 16 
“$255$DUA28 : SYSLIBIJSTARLET. MLB; 2 4 
TOTALS (all Libraries) 20 


749 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:NTODISCON/OBJ=OBJ$:NTODISCON MSRC$:NTODISCON/UPDATE=(ENKS:NTODISCON) +L1B$:RMS/LIB 
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